home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / improv3a / frmlock.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-25  |  7KB  |  189 lines
  1. VERSION 5.00
  2. Begin VB.Form frmLock 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   150
  9.    ClientTop       =   150
  10.    ClientWidth     =   4680
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3195
  15.    ScaleWidth      =   4680
  16.    ShowInTaskbar   =   0   'False
  17.    Begin VB.Timer Timer1 
  18.       Interval        =   500
  19.       Left            =   3720
  20.       Top             =   2040
  21.    End
  22.    Begin VB.ListBox lstAccessDenied 
  23.       BackColor       =   &H00C0FFFF&
  24.       Height          =   255
  25.       ItemData        =   "frmLock.frx":0000
  26.       Left            =   0
  27.       List            =   "frmLock.frx":0002
  28.       TabIndex        =   2
  29.       Top             =   1440
  30.       Visible         =   0   'False
  31.       Width           =   4455
  32.    End
  33.    Begin VB.CommandButton cmdAccess 
  34.       Appearance      =   0  'Flat
  35.       BackColor       =   &H80000009&
  36.       Caption         =   "&OK"
  37.       Default         =   -1  'True
  38.       Height          =   255
  39.       Left            =   0
  40.       Style           =   1  'Graphical
  41.       TabIndex        =   1
  42.       Top             =   840
  43.       Width           =   4455
  44.    End
  45.    Begin VB.TextBox txtPassword 
  46.       Height          =   285
  47.       IMEMode         =   3  'DISABLE
  48.       Left            =   0
  49.       PasswordChar    =   "*"
  50.       TabIndex        =   0
  51.       Top             =   480
  52.       Width           =   4455
  53.    End
  54.    Begin VB.Label lblYes 
  55.       Alignment       =   2  'Center
  56.       BackColor       =   &H000000FF&
  57.       BeginProperty Font 
  58.          Name            =   "MITIME"
  59.          Size            =   15.75
  60.          Charset         =   0
  61.          Weight          =   400
  62.          Underline       =   0   'False
  63.          Italic          =   0   'False
  64.          Strikethrough   =   0   'False
  65.       EndProperty
  66.       ForeColor       =   &H8000000E&
  67.       Height          =   1095
  68.       Left            =   120
  69.       TabIndex        =   6
  70.       Top             =   1800
  71.       Width           =   1335
  72.    End
  73.    Begin VB.Label lblWrong 
  74.       Alignment       =   2  'Center
  75.       BackColor       =   &H00000000&
  76.       Caption         =   "
  77. WRONG PASSWORD!!!!!"
  78.       BeginProperty Font 
  79.          Name            =   "MITIME"
  80.          Size            =   24
  81.          Charset         =   0
  82.          Weight          =   400
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       ForeColor       =   &H000000FF&
  88.       Height          =   495
  89.       Left            =   0
  90.       TabIndex        =   5
  91.       Top             =   0
  92.       Visible         =   0   'False
  93.       Width           =   4455
  94.    End
  95.    Begin VB.Label lblAttempts 
  96.       BackColor       =   &H00FFFFFF&
  97.       Caption         =   "0"
  98.       BeginProperty Font 
  99.          Name            =   "MS Sans Serif"
  100.          Size            =   13.5
  101.          Charset         =   0
  102.          Weight          =   400
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       ForeColor       =   &H000000FF&
  108.       Height          =   495
  109.       Left            =   1800
  110.       TabIndex        =   4
  111.       Top             =   2160
  112.       Visible         =   0   'False
  113.       Width           =   1335
  114.    End
  115.    Begin VB.Label lblAttempted 
  116.       BackColor       =   &H80000009&
  117.       Caption         =   "Attempted Terminal Unlocks:"
  118.       Height          =   255
  119.       Left            =   0
  120.       TabIndex        =   3
  121.       Top             =   1200
  122.       Visible         =   0   'False
  123.       Width           =   4455
  124.    End
  125. Attribute VB_Name = "frmLock"
  126. Attribute VB_GlobalNameSpace = False
  127. Attribute VB_Creatable = False
  128. Attribute VB_PredeclaredId = True
  129. Attribute VB_Exposed = False
  130. Private Sub cmdAccess_Click()
  131. If txtPassword.Text = myPass Then 'Correct Password, so Exit
  132. Dim rtn As Long
  133.     rtn = FindWindow("Shell_traywnd", "")
  134.     Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
  135.     Dim ret As Integer
  136.     Dim pOld As Boolean
  137.     ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
  138. Else ' Wrong Password!
  139. lstAccessDenied.Visible = True ' \
  140. lblAttempted.Visible = True    '  \ Show all we need to show!
  141. lblAttempts.Visible = True     '  /
  142. lblWrong.Visible = True        ' /
  143. Me.Refresh ' Show the controls
  144. lstAccessDenied.AddItem "ATTEMPTED TERMINAL UNLOCK AT " & Time & ", " & Date & "" 'Catch the Hackers!
  145. lblAttempts.Caption = lblAttempts.Caption + 1 ' Add to number of attempts
  146. Sleep 2000 ' wait 2 seconds...
  147. lblWrong.Visible = False ' hide the 'Wrong Password' label
  148. txtPassword.Text = ""
  149. End If
  150. End Sub
  151. Private Sub Form_Load()
  152. Dim ret As Integer
  153. Dim pOld As Boolean
  154. ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0) 'Disables [CTRL]+[ALT]+[DEL], [ALT]+[TAB], [START]
  155. Dim rtn As Long
  156.     rtn = FindWindow("Shell_traywnd", "") ' The Taskbar
  157.     Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) ' Hides the Taskbar
  158. frmLock.Height = Screen.Height 'Set Height of Form equal to that of screen
  159. frmLock.Width = Screen.Width 'Set Width of Form equal to that of screen
  160. frmLock.Left = 0 'Set X coordinate to zero
  161. frmLock.Top = 0 'Set Y coordinate to zero
  162. txtPassword.Left = (Screen.Width / 2) - (txtPassword.Width / 2) ' Set Password box to Mid-Way Point of Screen
  163. txtPassword.Top = 1000 'This is a good place for it to go
  164. cmdAccess.Left = (Screen.Width / 2) - (txtPassword.Width / 2) ' Set Button at same X coordinate as txtPassword Textbox
  165. cmdAccess.Top = 1500 ' Set below txtPassword Textbox
  166. lblWrong.Left = (Screen.Width / 2) - (txtPassword.Width / 2) ' Set in the Middle
  167. lblAttempted.Left = (Screen.Width / 2) - (txtPassword.Width / 2) ' Set in the Middle
  168. lblWrong.Top = 500
  169. lstAccessDenied.Left = (Screen.Width / 2) - (txtPassword.Width / 2) ' Set Password box to Mid-Way Point of Screen
  170. lblAttempted.Top = 2000                             '\
  171. lstAccessDenied.Top = 2250                          ' \ Set all the controls in a nice line :)
  172. lblAttempts.Left = lstAccessDenied.Left - 500       ' /
  173. lblAttempts.Top = lstAccessDenied.Top               '/
  174. lblYes.Height = Screen.Height
  175. lblYes.Width = 2250
  176. lblYes.Top = 0
  177. For i = 1 To 100
  178. lblYes.Caption = lblYes.Caption & "TERMINAL LOCKED" & vbNewLine
  179. Next i
  180. End Sub
  181. Private Sub Timer1_Timer()
  182. If lblYes.BackColor = vbRed Then
  183. lblYes.BackColor = vbWhite
  184. lblYes.ForeColor = vbRed
  185. lblYes.BackColor = vbRed
  186. lblYes.ForeColor = vbWhite
  187. End If
  188. End Sub
  189.